Mods to correct missing Descriptions after Zip Convert in MPL17-2B.ZIP all changes are commented 'Pe 10/05/89 All mods Are to RBBSSUB3.BAS Maple version Skip to Line.......... 20724 GOSUB 20734 ' CALL TIMEREMAIN (TIME.REMAINING!) IF PRIVATE.DOOR THEN _ X! = UPLOAD.TIME.FACTOR! * Q! _ ELSE X! = UPLOAD.TIME.FACTOR! * (TCA! - Q!) ' '************************8 New Convert code begins here 8******************* ' Orig mods by Warren Muldrow ' ' additional mods by Pete Eibl moved code to callable Subroutines 09/25/89 ' ' Zip Convert code. Does the following: ' ' .EXE files are retained as is (for self-extracting files) ' files with NO extension are left alone ' ' Added a .SFX for BBS that use the EXTCHECK.DEF file to block EXE files ' this allows a user to upload self extracting EXE files only if they ' Re Name the file .SFX ( this is a personall preference and can be removed) ' ' .ZIP, .ARC, .PAK, .ZOO, and .LZH are unzrc'ed and then Zipped ' ' All other files are Zipped ' ' PKUNZIP, PKZIP, PKUNPAK, PAK, LHARC, ZOO.BAT, WHAT.EXE, and LOOZ.EXE ' should be in the DOS path or the RBBS directory. WHAT is used by ' ZOO.BAT and is included in this archive. ' ' The Library work path (Config parm # 304) is used for a work area !!! ' IF ABORT = TRUE THEN _ 'Corrects aborted uploads EXIT SUB 'corrects aborted uploads CALL BRKFNAME (FILE.NAME$, DR$, ZZ$, X$, TRUE) IF X$ = ".EXE" OR X$ = "" OR EXT$ = ".SFX" THEN _ GOTO 20727 ' IF SYSOP OR USER.SECURITY.LEVEL > = ADD.DIR.SECURITY THEN A$ = " Convert or verify " + FILE.NAME$ + " ([Y],N) " SUBROUTINE.PARAMETER = 1 CALL TGET IF SUBROUTINE.PARAMETER = -1 THEN _ EXIT SUB IF NO THEN _ GOTO 20727 END IF IF LOCAL.USER THEN _ CALL LOCALCONVERT (DR$,ZZ$,X$,DESC$) _ 'Pe 10/05/89 ELSE _ CALL CONVERT2ZIP (DR$,ZZ$,X$,DESC$) 'Pe 10/05/89 ' 20727 GOSUB 20734 'Pe 09/06/89 'rest is the same 'Skip To End of RBBSSUB3.BAS ' $SUBTITLE: 'CONVERT2ZIP - subroutine to Convert to ZIP format' ' $PAGE ' ' NAME -- CONVERT2ZIP ' ' Parameters DR$ drive/subdir were file is located ' ZZ$ Filename (no Extension) ' X$ extension of file being converted ' DESC$ file description for ZIP comment 'Pe 10/05/89 ' ' PURPOSE -- Convert files to Zip format if remote user ' SUB CONVERT2ZIP (DR$,ZZ$,X$,DESC$) STATIC 'Pe 10/05/89 IF X$ = ".ZIP" THEN _ CALL QTPUT (FILE.NAME.HOLD$ +" Now being verified and re-Zipped Please wait!",1) : _ Z$ = "PKUNZIP -x " + FILE.NAME$ + " " _ ELSE _ CALL QTPUT (FILE.NAME.HOLD$ +" Now being converted to .ZIP format. Please wait!",1) : _ IF X$ = ".ARC" OR X$ = ".PAK" THEN _ Z$ = "PAK e " + FILE.NAME$ + " " : _ ELSE IF X$ = ".LZH" THEN _ Z$ = "LHARC e " + FILE.NAME$ + " " : _ ELSE IF X$ = ".ZOO" THEN _ Z$ = "ZOO.BAT " + FILE.NAME$ + " " : _ ELSE _ Z$ = "COPY " +FILE.NAME$ + " " ' B$ = "CONVERT"+NODE.ID$+".BAT" CALL OPENOUTW (B$) : _ PRINT #2, "MD " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ PRINT #2, "ECHO OFF" PRINT #2, "CTTY GATE"+RIGHT$(COM.PORT$,1) PRINT #2, "SETERROR 0" IF X$ = ".LZH" THEN _ PRINT #2, Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$ +"\" _ ELSE _ PRINT #2, Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$ PRINT #2, "DEL " + FILE.NAME$ PRINT #2, "IF ERRORLEVEL 1 GOTO ERR " PRINT #2, "PKZIP -m -ex " + DR$ + ZZ$ + " " + _ LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ + "\*.*" PRINT #2,":ERR" PRINT #2, "CTTY CON" PRINT #2, "KDY " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ PRINT #2,"SETERROR 0" PRINT #2, "ECHO ON" PRINT #2, "EXIT" B$ = "COMMAND.COM /C "+B$ 'Pe 10/05/89 CALL SHELLEXIT (B$) 'Pe 10/05/89 FILE.NAME.HOLD$ = ZZ$ + ".ZIP" FILE.NAME$ = DR$ + FILE.NAME.HOLD$ ' ' *** adds BBS name , users name and description to Zip comment if succesfull CALL FINDIT (FILE.NAME$) IF OK THEN CLOSE 2 COMMENT.NAME$ = UPLOAD.SUBDIR$ +"\UPLOAD.CMT ADDCMT1$ =CRLF$ +"Uploaded to "+ RBBS.NAME$ +" By: "+ACTIVE.USER.NAME$ ADDCMT2$ = CRLF$ +"Description: " + DESC$ ADDCOMMENT$ = ADDCMT1$ + ADDCMT2$ + CRLF$ CALL OPENOUTW (COMMENT.NAME$) PRINT #2, ADDCOMMENT$ CLOSE 2 ADDCMT$ = LIBRARY.ARCHIVE.PATH$+"PKZIP -z<"+COMMENT.NAME$+" "+ FILE.NAME$ SHELL ADDCMT$ END IF END SUB ' ' ' $SUBTITLE: 'LOCALCONVERT - subroutine to Convert to ZIP format' ' $PAGE ' ' NAME -- LOCALCONVERT ' ' Parameters DR$ drive/subdir were file is located ' ZZ$ Filename (no Extension) ' X$ extension of file being converted ' DESC$ file description for ZIP comment 'Pe 10/05/89 ' ' PURPOSE -- Convert files to Zip format if LOCAL user ' SUB LOCALCONVERT (DR$,ZZ$,X$,DESC$) STATIC 'Pe 10/05/89 ' IF X$ = ".ZIP" THEN _ CALL QTPUT (FILE.NAME.HOLD$ +" Now being verified and re-Zipped Please wait!",1) : _ Z$ = "PKUNZIP -x " + FILE.NAME$ + " " _ ELSE _ CALL QTPUT (FILE.NAME.HOLD$ +" Now being converted to .ZIP format. Please wait!",1) : _ IF X$ = ".ARC" OR X$ = ".PAK" THEN _ Z$ = "PAK e " + FILE.NAME$ + " " : _ ELSE IF X$ = ".LZH" THEN _ Z$ = "LHARC e " + FILE.NAME$ + " " : _ ELSE IF X$ = ".ZOO" THEN _ Z$ = "ZOO.BAT " + FILE.NAME$ + " " : _ ELSE _ Z$ = "COPY " +FILE.NAME$ + " " ' B$ = "CONVERT"+NODE.ID$+".BAT" CALL OPENOUTW (B$) : _ PRINT #2, "MD " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ IF X$ = ".LZH" THEN _ PRINT #2, Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$ +"\" _ ELSE _ PRINT #2, Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$ PRINT #2, "DEL " + FILE.NAME$ PRINT #2, "IF ERRORLEVEL 1 GOTO ERR " PRINT #2, "PKZIP -m -ex " + DR$ + ZZ$ + " " + _ LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ + "\*.*" PRINT #2,":ERR" PRINT #2, "KDY " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ PRINT #2,"SETERROR 0" PRINT #2, "EXIT" CLOSE 2 SHELL "COMMAND.COM /C "+B$ FILE.NAME.HOLD$ = ZZ$ + ".ZIP" FILE.NAME$ = DR$ + FILE.NAME.HOLD$ CALL FINDIT (FILE.NAME$) IF OK THEN CLOSE 2 COMMENT.NAME$ = UPLOAD.SUBDIR$ +"\UPLOAD.CMT ADDCMT1$ =CRLF$ +"Uploaded to "+ RBBS.NAME$ +" By: "+ACTIVE.USER.NAME$ ADDCMT2$ = CRLF$ +"Description: " + DESC$ ADDCOMMENT$ = ADDCMT1$ + ADDCMT2$ + CRLF$ CALL OPENOUTW (COMMENT.NAME$) PRINT #2, ADDCOMMENT$ CLOSE 2 ADDCMT$ = LIBRARY.ARCHIVE.PATH$+"PKZIP -z<"+COMMENT.NAME$+" "+ FILE.NAME$ SHELL ADDCMT$ END IF END SUB 'End of Mods to RBBSSUB3.BAS 'Pete Eibl